2 HOME : VTAB 3: HTAB 10: PRINT "WELCOME TO THE GAME OF": PRINT : HTAB 14: PRINT "L.A. L A N D": PRINT : HTAB 13: PRINT "M O N O P O L Y": GOSUB 30: PRINT : HTAB 11: PRINT "COPYRIGHT (C) 1980 BY": HTAB 13: PRINT "JEFFREY STANTON": PRINT
6 GOSUB 30: VTAB 15: PRINT "1 DO YOU WANT TO PLAY A GAME?": PRINT : PRINT "2 DO YOU WANT MAKE YOUR OWN GAME BY": PRINT " CHANGING PROPERY NAMES AND LUCK CARDS."
7 VTAB 20: PRINT "CHOOSE OPTION 1 OR 2 ? "
9 J = RND(1):I = PEEK( -16384): IF PEEK( -16384) <128 THEN 9
15 HOME : PRINT " THIS PROGRAM ENABLES YOU TO CHANGE THE NAMES OF THE PROPERTIES IN THE GAME OF L.A. L A N D MONOPOLY. YOU CAN CUS- TOM DESIGN YOUR OWN GAME TO SUIT THE AREA OF THE COUNTRY WHERE YOU LIVE,"
16 PRINT "WHETHER IT BE SAN FRANCISCO, CHICAGO OR ATLANTIC CITY": PRINT : PRINT " STEP 1 IS TO INPUT STREET NAMES FOR EACH COLOR BLOCK STARTING WITH THE CHEAPEST PROPERTIES. THE ONLY CON-"
17 PRINT "STRAINT IS THAT NAMES BE LIMITED TO 20"
18 PRINT "CHARACTERS AND THAT THE ABBREVIATION USED ON THE GAME'S TEXT PAGE BE HELD TO TEN CHARACTERS. IF A NAME IS 10 OR LESS CHARACTERS, PRESSING RETURN FOR THE ABBREVIATION WILL DUPLICATE THE NAME."
19 POKE -16368,0
20 VTAB 22: PRINT " HIT ANY KEY TO CONTINUE.": POKE 36,41: GET Q$: HOME : GOTO 200
30 FOR DE = 1 TO 2000: NEXT DE: RETURN
200 GOSUB 1010: PRINT " DARK RED PROPERTIES ": NORMAL :I = 2
210 GOSUB 1020: GOSUB 1000: GOSUB 2000
220 E2$ = A1$:F2$ = B1$:E3$ = A2$:F3$ = B2$
230 GOSUB 1010: PRINT " BLUE PROPERTIES ": NORMAL :I = 3
470 HOME : VTAB 5: INVERSE : HTAB 10: PRINT " UTILITIES ": NORMAL :I = 2
480 GOSUB 1020: GOSUB 1000: GOSUB 2000
490 S8$ = A1$:T8$ = B1$:S9$ = A2$:T9$ = B2$
510 HOME : VTAB 6: PRINT " IN STEP 2 YOU CAN CHOOSE ONE OF NINE SETS OF CHARITY CAUSE AND LUCKY DRAW CARDS. EACH REFLECTS THE ECONOMIC CONDITIONS AND NATURAL HAZZARDS OF A SECTION OF THE UNITED STATES. THE LAST"
512 PRINT "SECTION LABLED MIDDLE AMERICANA IS A GENERALIZIED SET OF CARDS.": PRINT : PRINT " NOTE THE SAN FRANCISCO AREA MODULE ASSUMES BRIDGES INSTEAD OF FREEWAYS BE- CAUSE OF THE ABUNDANCE OF SURROUNDING"
514 PRINT "BRIDGES. ONLY THE SOUTHWEST MODULE AS- SUMES FREEWAYS. THE REST USE RAILROADS."
515 VTAB 22: PRINT " HIT ANY KEY TO CONTINUE": GET Q$
550 HOME : VTAB 5: PRINT " THIS PROGRAM ALLOWS YOU TO SAVE YOUR CREATED GAME IN TWO DIFFERENT MODULES. WHEN THE MONOPOLY GAME STARTS YOU WILL BE ASKED WHETHER YOU WOULD LIKE TO PLAY THE LOS ANGELES GAME, CREATED GAME #1"
552 PRINT "OR CREATED GAME #2.": PRINT : PRINT " YOU MAY SAVE ON EITHER OF THE CREATEDGAME MODULES. EVERY TIME YOU SAVE ON A MODULE IT ERASES THE PREVIOUS ONE. INIT-IALLY THEY EACH HAVE THE L.A. GAME."
575 VTAB 18: PRINT " HIT ANY KEY TO CONTINUE.": GET Q$
580 HOME : VTAB 5: PRINT "1 SAVE CREATED GAME #1": PRINT : PRINT "2 SAVE CREATED GAME #2": PRINT : PRINT "3 DO NOT SAVE AND START AGAIN"
1000 VTAB 20: PRINT "PROPERTY NAME MAY BE UP TO 20 CHARACTERS": VTAB 21: PRINT "HOWEVER THE ABBREVIATED FORM ON THE TEXT": VTAB 22: PRINT "PAGE IS LIMITED TO ONLY 10 CHARACTERS": VTAB 23: PRINT "TO DUPLICATE NAME FOR ABBR PRESS RETURN": RETURN
1010 HOME : VTAB 5: HTAB 6: INVERSE : RETURN
1020 VTAB 7: HTAB 12: PRINT "NAME ABBR": RETURN
1100 D9$ = "OPENING AT THE MARK TAPER FORUM"
1105 D8$ = "FROM SALE OF MOVIE STOCK YOU GET $45"
1110 D7$ = "YOU HAVE BEEN ASKED TO TAKE A SCREEN TEST. COLLECT $50
